home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 2 #6 / Commodore_Disk_User_Vol.2_6_1989_-.d64 / hidden graphics1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  61 lines
  1. 1000 rem *********************
  2. 1010 rem *                   *
  3. 1020 rem * hidden graphics 1 *
  4. 1030 rem *   by mike benn    *
  5. 1040 rem *                   *
  6. 1050 rem *    basic demo     *
  7. 1060 rem *                   *
  8. 1070 rem *********************
  9. 1080 rem
  10. 1090 rem *******************
  11. 1100 rem * tape users will *
  12. 1110 rem * need to change  *
  13. 1120 rem * device number   *
  14. 1130 rem *******************
  15. 1140 rem
  16. 1150 rem load machine code prog.
  17. 1160 rem
  18. 1170 x=x+1:ifx=1thenload"hg1 mc",8,1
  19. 1180 rem
  20. 1190 gosub1440
  21. 1200 rem
  22. 1210 rem redirect screen data load
  23. 1220 rem
  24. 1230 sys52000,"hg data block",8,40960
  25. 1240 sys52000,"hg data block",8,41960
  26. 1250 rem
  27. 1260 rem call first screen
  28. 1270 rem
  29. 1280 sys52003,40960,1,28,8,12,11,15,0
  30. 1290 getk$:ifk$=""then1290
  31. 1300 rem
  32. 1310 rem call second screen
  33. 1320 rem
  34. 1330 sys52003,41960,1,28,8,8,9,7,0
  35. 1340 getk$:ifk$=""then1340
  36. 1350 rem
  37. 1360 rem change screen to hires
  38. 1370 rem
  39. 1380 sys52003,41960,1,28,0,15,0,0,0
  40. 1390 getk$:ifk$=""then1390
  41. 1400 sys52006
  42. 1410 end
  43. 1420 rem poke new character data
  44. 1430 rem
  45. 1440 bl=8:ln=1500:sa=12288
  46. 1450 forl=0tobl:cx=0:ford=0to15
  47. 1460 reada:ifa>255thenprint"number to large";ln+(l*10):stop
  48. 1470 cx=cx+a:pokesa+l*16+d,a:nextd
  49. 1480 read a:if a><cx thenprint"error in line";ln+(l*10):stop
  50. 1490 nextl:return
  51. 1500 data 0,0,85,85,85,85,85,85,255,255,170,170,170,170,170,170,2040
  52. 1510 data 171,171,107,107,91,91,87,87,255,255,106,106,90,90,86,86,1986
  53. 1520 data 171,171,171,171,171,171,171,171,255,255,171,171,171,171,171,171,2904
  54. 1530 data 85,85,85,85,85,85,85,85,0,12,12,60,12,12,12,12,812
  55. 1540 data 12,12,12,63,0,0,0,0,60,60,195,195,3,12,12,48,684
  56. 1550 data 48,192,255,255,0,0,0,0,0,60,60,195,195,3,60,60,1383
  57. 1560 data 3,195,195,60,60,0,0,0,0,12,12,60,60,60,204,204,1125
  58. 1570 data 204,255,255,12,0,0,0,0,0,255,255,192,192,60,60,3,1743
  59. 1580 data 195,195,60,60,0,0,0,0,0,0,0,0,0,0,0,0,510
  60. 1590 end
  61.